home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagg_m.zip
/
MISC.SWG
/
0029_Device Driver in TP.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-08-27
|
881b
|
51 lines
{
GORDON TACKETT
In version 7 of TP/BP you can write a device driver But it is tricky! The
following code is not fully tested but seems to work. After looking at some
disassembly listings I added the patch file section. Use or abuse at your own
risk :-)
}
Program TestDriver;
Procedure Dev_Strategy; Forward;
Procedure Dev_Int; Forward;
Procedure DeviceDriverHeader;
begin
Inline(
$FFFF/
$FFFF/
$2000/
$0000/
$0000/
$FFFF/$FFFF/$FFFF/$FFFF/0);
End;
Procedure Dev_Strategy;
Begin
End;
Procedure Dev_Int;
Begin
End;
Var
F : File;
Begin
If ParamCount = 999 Then
DeviceDriverHeader
else
Begin
{patch driver}
movemem(devicedriverheader, DeviceDriverHeader + 3, 20);
Assign(F, ParamStr(0));
Reset(F, 1);
BlockWrite(F, DeviceDriverHeader, 20);
Close(F);
End;
End.